(deftemplate fruct
    (slot nume)
	(slot culoare)
    (slot locatie)        
)

(deftemplate obiect
    (slot nume)
    (slot culoare)
)

(deftemplate culoare
	(slot nume)
)

(deftemplate cladire
    (slot nume)    
)

(deftemplate persoana
    (slot tip)    
)

(deftemplate locatie
    (slot nume)    
)

(deftemplate copac
    (slot tip)    
)

(deffacts fapte
	(copac   (tip plum))
	(obiect  (nume bus) (culoare yellow))
	(persoana(tip student))
	(culoare (nume blue))
	(culoare (nume green))
    (culoare (nume yellow))
	(culoare (nume red))
	(fruct   (nume banana) (culoare yellow)(locatie island))
	(fruct   (nume coconut)(culoare null)(locatie island))
	(fruct   (nume apple)  (culoare red)(locatie tree))
	(locatie (nume island))
	(copac   (tip coconut))
    (cladire (nume school))
	(copac   (tip banana))
	(copac   (tip apple))
)    
    
(reset)       
(facts)
(run)